home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / bit window.rel.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  83 lines
  1. 100 REM"[211]=S[193]"0:BIT WINDOW.REL",8[157]
  2. 101 [143] JUST RUN IT AS IS FOR DEMO
  3. 110 [143]-------------------------------
  4. 120 [143] TEXT/BIT-MAP WINDOW DEMO
  5. 130 [143] (C) 1983 ELIZABETH DEAL
  6. 140 [143]-------------------------------
  7. 150 [143] Q TWICE QUITS
  8. 160 [143] UP&DOWN CURSORS MOVE WINDOW
  9. 170 [143]    DOWN WRAPS AROUND TO TOP
  10. 190 [143]  SYS  AD   TURNS SPLIT ON
  11. 200 [143]  SYS  AD+3 TURNS IT OFF
  12. 210 [143]  SYS  AD+6 MOVES WINDOW,
  13. 220 [143] <> CHANGES SIZE,Q KEY EXITS
  14. 230 [143] AD+9  RASTER LINE1
  15. 240 [143] AD+10 RASTER LINE2
  16. 250 [143] AD+11 WINDOW SIZE
  17. 255 [143] FOR DIRECT MODE GRAPHICS
  18. 260 [143] DEBUGGING, REMOVE SYSAD+3
  19. 270 [143] FROM THE 'END' LINE.
  20. 280 :
  21. 281 [139]CS[178]0[167][141]50380
  22. 282 [139]CS[179][177]21758[167][144]
  23. 290 [143] AD MUST BE KNOWN NOW
  24. 300 [139][194](AD[170]13)[172][194](AD[170]18)[179][177]169[172]144[167][153]"NO MACHINE CODE?":[144]:[172][172][172][172][172]
  25. 310 [139][194](AD[170]9)[167][158]AD[170]3
  26. 320 [158]AD:[151]650,255:[158]AD[170]6
  27. 330 [161]I$:[139]I$[179][177]"Q"[137]330
  28. 340 [158]AD[170]3:[128]
  29. 50350 [143]------------------------------
  30. 50360 [143] BASIC LOADER/RELOCATOR
  31. 50370 [143]------------------------------
  32. 50380 TM[178]55:CS[178]0:[135]N$,SP:[153]"LOAD";
  33. 50390 [150][165]H(V)[178][181](V[173]256)
  34. 50400 [150][165]L(V)[178]V[171]256[172][165]H(V)
  35. 50410 AD[178][194](TM)[170]256[172][194](TM[170]1)[171]SP[171]1
  36. 50420 V[178]AD
  37. 50430 [151]TM,[165]L(V):[151]TM[170]1,[165]H(V)
  38. 50440 [151]TM[171]4,[165]L(V):[151]TM[171]3,[165]H(V)
  39. 50450 [129]I[178]0[164]SP[170]1:[135]V
  40. 50460 [139]V[178]999[167][135]V:[137]50500
  41. 50470 CS[178]CS[170]V:[153]"ON"I
  42. 50480 [139]V[179]0[167]V[178]AD[171]V:V%[178][165]H(V):V[178][165]L(V):[151]AD[170]I,V:V[178]V%:I[178]I[170]1
  43. 50490 [151]AD[170]I,V:[130]I
  44. 50500 [139]CS[179][177]V[176]I[179][177]SP[170]1[167][153]"FIX DATA";:[128]
  45. 50510 [153]N$": SYS"AD;:[142]
  46. 50520 [143]------------------------------
  47. 50530 [131] "BIT WINDOW",317
  48. 51200 [131]   76, -52,  76,-117,  76,-252,  75, 125
  49. 51201 [131]   50,   0, 169,  48, 205,  -9, 144,   3
  50. 51202 [131]  141,  -9, 169,  40, 205, -11, 144,   3
  51. 51203 [131]  141, -11, 173, -11,  24, 109,  -9, 176
  52. 51204 [131]    2, 201, 248, 144,   2, 169, 248, 141
  53. 51205 [131]  -10,  96,  32, -13, 173, -12, 208, 101
  54. 51206 [131]  238, -12, 173,  20,   3, 172,  21,   3
  55. 51207 [131]  141,-315, 140,-316, 169, 127, 141,  13
  56. 51208 [131]  220, 120, 173,  17, 208,  41, 127, 141
  57. 51209 [131]   17, 208, 141,-311, 173,  24, 208, 141
  58. 51210 [131] -312, 173,  -9, 141,  18, 208, 169, 129
  59. 51211 [131]  141,  26, 208, 173,-313, 172,-314, 208
  60. 51212 [131]   37,  78, -12, 144,  39, 120, 173,  26
  61. 51213 [131]  208,  41, 126, 141,  26, 208, 173,-311
  62. 51214 [131]  141,  17, 208, 173,-312, 141,  24, 208
  63. 51215 [131]  169, 129, 141,  13, 220, 173,-315, 172
  64. 51216 [131] -316, 141,  20,   3, 140,  21,   3,  88
  65. 51217 [131]   96,  32, -13, 169,   1, 141,  25, 208
  66. 51218 [131]  174,  -9,  32,-240,  72, 173,  18, 208
  67. 51219 [131]  205,  -9, 144,  30, 205, -10, 176,  18
  68. 51220 [131]  104, 174, -10, 173,  24, 208,   9,   8
  69. 51221 [131]  168, 173,  17, 208,   9,  32,  72, 208
  70. 51222 [131]    7, 104, 162,   1,  32,-240,  72, 142
  71. 51223 [131]   18, 208, 104,  41, 127, 141,  17, 208
  72. 51224 [131]  140,  24, 208, 173,  13, 220,  41,   1
  73. 51225 [131]  240,   3, 108,-315,  76, 188, 254, 173
  74. 51226 [131]   24, 208,  41, 247, 168, 173,  17, 208
  75. 51227 [131]   41, 223,  96,  32, 228, 255, 240, 251
  76. 51228 [131]  201,  81, 240,  48, 201,  44, 240,  32
  77. 51229 [131]  201,  46, 240,  28, 168,  41, 127, 201
  78. 51230 [131]   17, 208, 232, 152,  16,   9, 206,  -9
  79. 51231 [131]  206, -10,  76,-252, 238, -10, 238,  -9
  80. 51232 [131]   76,-252,  56, 233,  45, 109, -11, 141
  81. 51233 [131]  -11,  76,-252,  24,  96,   0,   0,-162
  82. 51234 [131]    0,   0, 153, 999, 21758 
  83.